procedure TForm1.Button1Click(Sender: TObject);
begin
  with Image1.Picture.Bitmap.Canvas do
  begin
    Font.Color  := clBlue;
    Brush.Style := bsclear;
    Font.Size   := 13;
    TextOut(10, 10, 'Transparent!!');
  end;
end;